home *** CD-ROM | disk | FTP | other *** search
/ Private Obsession 3: Sophia / Private Obsession 3: Sophia.iso / files / satin.dxr / 00001.ls next >
Encoding:
Text File  |  1995-04-08  |  2.0 KB  |  67 lines
  1. on startMovie
  2.   if the colorDepth <> 8 then
  3.     set the colorDepth to 8
  4.   end if
  5.   set the soundLevel to 5
  6.   InitIntro()
  7. end
  8.  
  9. on InitIntro
  10.   global gMyPath, gFile
  11.   set the searchCurrentFolder to 0
  12.   if the machineType = 256 then
  13.     set PathList to ["C:\FILES\", "D:\FILES\", "E:\FILES\", "F:\FILES\", "G:\FILES\", "H:\FILES\", "I:\FILES\", "J:\FILES\", "K:\FILES\", "L:\FILES\", "M:\FILES\", "N:\FILES\", "O:\FILES\", "P:\FILES\", "Q:\FILES\", "R:\FILES\", "S:\FILES\", "T:\FILES\", "U:\FILES\", "V:\FILES\", "W:\FILES\", "X:\FILES\", "Y:\FILES\", "Z:\FILES\", "EOL"]
  14.     set gMyPath to "D:\FILES\"
  15.     repeat with x = 1 to count(PathList)
  16.       set gMyPath to getAt(PathList, x)
  17.       set foo to ReadCDTestFile()
  18.       put foo && "Reading from disk:" && getAt(PathList, x)
  19.       if foo then
  20.         exit repeat
  21.       end if
  22.       if gMyPath = "EOL" then
  23.         CantFindCD()
  24.       end if
  25.     end repeat
  26.   else
  27.     set gMyPath to "SSHOTS:FILES:"
  28.     set foo to ReadCDTestFile()
  29.     put foo
  30.     if not foo then
  31.       CantFindCD()
  32.     end if
  33.   end if
  34. end
  35.  
  36. on ReadCDTestFile
  37.   global gFile, gMyPath, gTheProblem
  38.   put "READ CD ROUTINE"
  39.   if objectp(gFile) then
  40.     gFile(mdispose)
  41.   end if
  42.   if the machineType = 256 then
  43.     set TestPath to gMyPath & "WXYWXY.TXT"
  44.   else
  45.     set TestPath to gMyPath & "WXYWXY.TXT"
  46.   end if
  47.   set gFile to FileIO(mnew, "read", TestPath)
  48.   if not objectp(gFile) then
  49.     put "NOT found"
  50.     return 0
  51.   else
  52.     gFile(mdispose)
  53.     put "Found!"
  54.     setAt(the searchPath, 1, gMyPath)
  55.     return 1
  56.   end if
  57. end
  58.  
  59. on CantFindCD
  60.   if the machineType = 256 then
  61.     alert("You don't seem to have the Satin Shots CD-ROM loaded!  Please make sure the CD is in the drive." & RETURN & RETURN & "Then restart the application.")
  62.   else
  63.     alert("You don't seem to have the Satin Shots CD-ROM loaded!  Please make sure the CD is in the drive and that the" && QUOTE & "Satin Shots" & QUOTE && "icon appears on the desktop." & RETURN & RETURN & "Then restart the application.")
  64.   end if
  65.   quit()
  66. end
  67.